100 POKE788,52:POKE657,128:POKE650,128
110 REM" SPRITE WANDLER 64 V.2
120 [143]" WRITTEN BY O.MUSOLF
130 REM" HARDENBERGSTR. 13
140 [143]" 4040 NEUSS 21
150 REM" TEL.:02107/6605
160 [143]" (C) S+S SOFT
170 REM" (COMMODORE 64)
180 XX[178]1:RS[178]1:VW[178]1:V[178]53248:F[178]2:FM1[178]0:FM2[178]6:Y$[178]""
190 E$(0)[178]"ONTOCMD(null)WAITON CMD(null)":E$(2)[178]"ON CMD(null)ONTOCMD(null)"
200 [139][194](820)[178]0[167][151]832,195:[151]833,80:[151]820,1
210 [143]" * MENUE *
220 POKEV+21,0:POKE53280,254:POKE53281,254:PRINTCHR$(14)"[147][144][211]PRITE [215]ANDLER 64 [214].2"
230 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][144]"
240 PRINT"BY [207]LIVER [205]USOLF"
250 PRINT"[211]+[211] [211]OFT 1984"
260 PRINT"[164][164][164][164][164]"
270 PRINT"[205]ENUE"
280 PRINT"[164][164][157][157][198]1[146] = [208]ROGRAMMENDE
290 [153]"TOTOCMDCMDASC5WAIT = PEEKLOCK (null)UN
300 PRINT"[164][164][157][157][198]7[146] = [196][193][212][193] - [215]ANDLER
310 [153]"PEEKITTE WAEHLEN (null)IE:"
320 [153]"ONONTOCMD?":[129]T[178]1[164]55:[130]
330 [161]A$:[139]A$[179][177]""[167]350
340 [153]"ONON CMD?":[129]T[178]1[164]55:[130]:[137]320
350 [139]A$[178]"READ"[167]400
360 [139]A$[178]"INPUT"[167]1570
370 [139]A$[178]"LET"[167]1040
380 [137]340
390 [143]" * BLOCK RUN *
400 POKE2040,0:POKEV+23,0:POKEV+29,0:POKEV+39,F:POKEV,220:POKEV+1,131
410 POKEV+37,FM1:POKEV+38,FM2:POKEV+28,0
420 PRINT"[147][211]PRITE [215]ANDLER 64 [214].2 ([194]LOCK [210]UN)"
430 PRINT"[164][164][157][157][198]1[146] = [214]ERGROESSERUNG [216]-[210]ICHTUNG"
440 PRINT"[164][164][157][157][198]3[146] = [214]ERGROESSERUNG [217]-[210]ICHTUNG"
450 PRINT"[164][164][157][157][198]5[146] = [211]PRITE [205]ODUS: [206]ORMAL
460 [153]"TOTOCMDCMDASC7WAIT = (null)UNSPEED AENDERN ORTANTANTANTANTANTAN^"
470 [153]"                      (null)      (null)"
480 [153]"_WAITFN= (null)ORWAHL ^WAIT = (null)ENUE (null)      (null)"
490 [153]"TOTOTOTOTO       TAB(         (null)      (null)"
500 [153]"(null)(null)ATNLENVALWAIT = (null)ERZOEGERUNG  (null)      (null)"
510 [153]"TOTOTOTOTO                 (null)      (null)"
520 [153]"LEN(null)(null)(null)>WAIT = (null)UN  /  (null)TOP  /TANTANTANTANTANTANEXP"
530 [153]"         TO             PEEKLOCK: "
540 [153]"(null)UNSPEED ?WAIT"RS
550 [153]"TO                        "[166]4[171][195]([196]([194](2040))))[194](2040)
560 [153]"1WAIT  = (null)PRITE ASCARBE
570 PRINT"[164][157]2[146]  = [211]PRITE [198]ARBE 1 [205]ULTICOLOR"
580 PRINT"[164][157]3[146]  = [211]PRITE [198]ARBE 2 [205]ULTICOLOR":POKEV+21,1
590 REM" * RUN BEGINN *
600 [129]TT[178]VW[164]255:[153][200](Y$,18)[166]28[171][195]([196](TT)))" ";TT:[151]2040,TT
610 [161]A$:[151]198,0:[139]A$[178]""[167]XX[178][171]XX
620 [139]A$[178]"INPUT"[175][194](V[170]29)[178]0[167][151]V[170]21,0:[151]V[170]29,1:[141]800:[151]V[170]21,1
630 [139]A$[178]"INPUT"[175][194](V[170]29)[178]1[167][151]V[170]21,0:[151]V[170]29,0:[141]800:[151]V[170]21,1
640 [139]A$[178]"DIM"[175][194](V[170]23)[178]0[167][151]V[170]21,0:[151]V[170]23,1:[141]800:[151]V[170]21,1
650 [139]A$[178]"DIM"[175][194](V[170]23)[178]1[167][151]V[170]21,0:[151]V[170]23,0:[141]800:[151]V[170]21,1
660 [139]A$[178]"^"[167]220
670 [139]A$[178]"1"[167]F[178]F[170]1:[151]V[170]39,F:[139]F[178]16[167]F[178]0
680 [139]A$[178]"2"[167]FM1[178]FM1[170]1:[151]V[170]37,FM1:[139]M1[178]8[167]FM1[178]0
690 [139]A$[178]"3"[167]FM2[178]FM2[170]1:[151]V[170]38,FM2:[139]M2[178]8[167]FM2[178]0
700 [139]A$[178]"READ"[175]M[178]1[167]M[178]0:[153][200](Y$,7)[166]19)"(null)ORMAL    ":[151]V[170]28,0:A$[178]""
710 [139]A$[178]"READ"[175]M[178]0[167]M[178]1:[153][200](Y$,7)[166]19)"(null)ULTICOLOR":[151]V[170]28,1
720 [139]A$[178]"LET"[167][141]910
730 [139]A$[178]"_"[167]980
740 [153][200](Y$,15)E$(XX[170]1)
750 [139]XX[178]1[167]610
760 [139]A$[178]" "[167]890
770 [129]W[178]1[164]RS
780 [130]
790 [130]:VW[178]1:[137]600
800 A$[178]"":[139][194](V[170]29)[178]0[175][194](V[170]23)[178]0[167][151]V,220:[151]V[170]1,131:[137]840
810 [139][194](V[170]29)[178]1[175][194](V[170]23)[178]1[167][151]V,208:[151]V[170]1,121:[137]840
820 [139][194](V[170]29)[178]0[175][194](V[170]23)[178]1[167][151]V,220:[151]V[170]1,121:[137]840
830 [139][194](V[170]23)[178]0[175][194](V[170]29)[178]1[167][151]V,208:[151]V[170]1,131
840 [139][194](V[170]23)[178]1[167][153]""[166]20)"TOCMD(null)WAIT":[137]860
850 [153]""[166]20)" CMD(null)"
860 [139][194](V[170]29)[178]1[167][153]""[166]20)"TOCMD(null)WAIT":[142]
870 [153]""[166]20)" CMD(null)":[142]
880 [142]
890 A$[178]"":[153][200](Y$,12)[166]8)"TOCMD(null)":[129]W[178]1[164]1000[170]RS:[130]
900 [153][200](Y$,12)[166]8)" CMD(null)":[137]770
910 RS$[178]"":[153][200](Y$,8)[166]5)"TOCMD(null)"
920 [133]"                        CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";RS$
930 [139]RS$[178]""[167]950
940 RS[178][181]([197](RS$)):[139]RS[178][179]0[176]RS[177]1000[167]910
950 [153][200](Y$,8)[166]5)" CMD(null)"
960 [153]"TOCMD?WAIT"RS"CMD                         "
970 [142]
980 VW$[178]"":[153][200](Y$,10)"TOCMD(null)"
990 [133]"PEEKLOCK (null)R.                       CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDON CMD";VW$
1000 [139]VW$[178]""[167]1020
1010 VW[178][181]([197](VW$)):[139]VW[179][178]0[176]VW[177]255[167]980
1020 [153][200](Y$,10)" CMD(null)"
1030 [153]"(null)UNSPEED ONTOCMD?WAIT"RS"CMD                         ":[137]600
1040 [151]V[170]23,0:[151]V[170]29,0:[151]V,76:[151]V[170]1,172
1050 [153]"LOADSTOP(null)PRITE (null)ANDLER 64 (null).2                      (STR$ATN(null)ATN-(null)ANDLER)"
1060 [153]"TOTOCMDCMDASC5WAIT = PEEKLOCK -> STR$ATN(null)ATN WANDLUNG"
1070 [153]"TOTOCMDCMDASC7WAIT = PEEKLOCK WAHL"
1080 [153]"^WAIT  = (null)ENUE"
1090 [153]"TAB(CMDPEEKLOCK (null)AME ONTOCMD?"
1100 [153]"PEEKLOCK (null)R.  ONTOCMD?"
1110 [153]"     ORTANTANTANTAN^"
1120 [153]"PEEKLOCK(null)    (null)"
1130 [153]"     (null)    (null)"
1140 [153][166]5[171][195]([196]([194](2040))))[194](2040)"CMD(null)    (null)"
1150 [153]"     /TANTANTANTANEXP":[151]V[170]21,1
1160 [153]"PEEKITTE WAEHLEN (null)IE:"
1170 [153][200](Y$,23)
1180 [153]"ONONTOCMD?WAIT":[129]T[178]1[164]55:[130]
1190 [161]A$:[139]A$[179][177]""[167]1210
1200 [153]"ONON CMD?":[129]T[178]1[164]55:[130]:[137]1180
1210 [139]A$[178]"LET"[167]1470
1220 [139]A$[178]"READ"[167]1530
1230 [139]A$[178]"^"[167]220
1240 [137]1200
1250 [153]"LOAD";:ZN[178][194](832)[172]256[170][194](833):A[178]0:I[178]0
1260 [153]ZN"REM "N$:ZN[178]ZN[170]10
1270 [153]ZN"REM SPRITE WANDLER 64 V.2":ZN[178]ZN[170]10:I[178]2
1280 L[178]0:[153]ZN"DATA";
1290 A$[178][202]([196]([194](SA)),2)
1300 [153]A$;:L[178]L[170][195](A$)[170]1:SA[178]SA[170]1
1310 [139]L[179]66[175]SA[179][178]EA[167][153]",";:[137]1290
1320 ZN[178]ZN[170]10:[153]:I[178]I[170]1
1330 [139] I[179]10 [175] SA[179][178]EA[167]1280
1340 [153]"RUN":I[178]I[170]1
1350 [151]631,19
1360 [129]P[178]0[164]I:[151]632[170]P,13:[130]
1370 [151]198,P[170]1
1380 B[178]SA[173]256:[151]828,B:[151]829,SA[171][181](B)[172]256
1390 B[178]EA[173]256:[151]830,B:[151]831,EA[171][181](B)[172]256
1400 B[178]ZN[173]256:[151]832,B:[151]833,ZN[171][181](B)[172]256
1410 [128]
1420 SA[178]25[216][172][194](828)[170][194](829)
1430 EA[178]256[172][194](830)[170][194](831)
1440 ZN[178]256[172][194](832)[170][194](833)
1450 [153]"LOAD";:[137]1280
1460 [143] * BLOCKWAHL *
1470 VW$[178]"":[153][200](Y$,12);:[133]" CMD";VW$
1480 [153][200](Y$,12)"TOCMD?WAIT                         "
1490 [139]VW$[178]""[167]1170
1500 VW[178][181]([197](VW$)):[139]VW[179][178]0[176]VW[177]255[167]1470
1510 [153][200](Y$,18)"     "
1520 [151]2040,VW:[153][200](Y$,18)[166]5[171][195]([196](VW)))VW:[137]1170
1530 N$[178]"":[153][200](Y$,10);:[133]" CMD";N$
1540 [153][200](Y$,10)"TOCMD?WAIT                         "
1550 [139]N$[178]""[167]1170
1560 SA[178][194](2040)[172]64:EA[178]SA[170]63:[137]1250
1570 [153]"LOAD(null)PRITE (null)ANDLER 64 (null).2 ((null)ROGRAMMENDE)"
1580 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTO"
1590 [153]"PEEKITTE WARTEN !"
1600 [129]T[178]1[164]2000:[130]:ZN[178]100:[153]"LOADCONT"[199](142);
1610 [153]ZN:ZN[178]ZN[170]10:I[178]I[170]1:[139]I[179]9[167]1610
1620 [153]"GOTO1640":[151]631,19:[129]T[178]0[164]9:[151]632[170]T,13:[130]:[151]198,T[170]1
1630 B[178]ZN[173]256:[151]832,B:[151]833,ZN[171][181](B)[172]256:[128]
1640 ZN[178]256[172][194](832)[170][194](833)
1650 [153]"LOAD";:[139]ZN[179][177]1630[167]1610
1660 [151]631,19:[129]T[178]0[164]9:[151]632[170]T,13:[130]
1670 [129]T[178]163[164]168:[153]T[172]10:[130]:[153]"?"[199](34)"LOADSTOP"[199](34)";:LIST"
1680 [151]657,0:[151]198,10